object RulesFrm: TRulesFrm Left = 200 Top = 99 HelpContext = 41020 BorderIcons = [] BorderStyle = bsSingle Caption = 'House Rules' ClientHeight = 430 ClientWidth = 599 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnActivate = FormActivate TextHeight = 16 object Label1: TLabel Left = 8 Top = 8 Width = 585 Height = 49 AutoSize = False Caption = 'Click the buttons below to alter the house rules for the upcomin' + 'g game. This allows you to play with rules exactly like those p' + 'layed at your favorite casino or according to the rules played a' + 't home games with friends.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Panel1: TPanel Left = 7 Top = 63 Width = 185 Height = 138 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object Label2: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Doubling Down' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn1: TBitBtn Left = 8 Top = 106 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button1: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Double on 9, 10, or 11 only' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'No Doubling after Splitting' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button2Click end end object Panel2: TPanel Left = 207 Top = 63 Width = 185 Height = 138 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 object Label3: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Splitting Pairs' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn2: TBitBtn Left = 8 Top = 106 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button3: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Split Aces get only one card' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button3Click end object Button4: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Split any Face Cards (or 10)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button4Click end end object Panel3: TPanel Left = 407 Top = 63 Width = 185 Height = 138 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object Label4: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Insurance' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn3: TBitBtn Left = 8 Top = 106 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button5: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Pays 2-1' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button5Click end object Button6: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Bet up to 1/2 of table bet' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button6Click end end object Panel4: TPanel Left = 7 Top = 207 Width = 185 Height = 138 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 object Label5: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Miscellaneous' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn4: TBitBtn Left = 8 Top = 106 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button7: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'No Surrender' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button7Click end object Button8: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Dealer hits soft 17s' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button8Click end end object Panel5: TPanel Left = 207 Top = 207 Width = 185 Height = 170 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 object Label6: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Miscellaneous' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn5: TBitBtn Left = 8 Top = 138 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button9: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Table Limit $5 to $500' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button9Click end object Button13: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Four-Deck Shoe' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button13Click end object Button14: TButton Left = 8 Top = 96 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Players'#39' Cards Face-Up' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = Button14Click end end object Panel6: TPanel Left = 407 Top = 207 Width = 185 Height = 138 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 object Label7: TLabel Left = 1 Top = 1 Width = 183 Height = 16 Align = alTop Alignment = taCenter Caption = 'Payoffs' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object BitBtn6: TBitBtn Left = 8 Top = 106 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Help' TabOrder = 0 Kind = bkHelp end object Button10: TButton Left = 8 Top = 32 Width = 169 Height = 25 HelpContext = 41020 Caption = 'Blackjack pays 3-2' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button10Click end object Button11: TButton Left = 8 Top = 64 Width = 169 Height = 25 HelpContext = 41020 Caption = 'No Special Payoffs' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button11Click end end object Panel7: TPanel Left = 0 Top = 384 Width = 599 Height = 46 Align = alBottom TabOrder = 6 object BitBtn7: TBitBtn Left = 16 Top = 8 Width = 169 Height = 33 HelpContext = 41020 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Kind = bkCancel end object BitBtn8: TBitBtn Left = 416 Top = 8 Width = 169 Height = 33 HelpContext = 41020 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn8Click Kind = bkOK end object Button12: TButton Left = 224 Top = 8 Width = 161 Height = 33 HelpContext = 41020 Caption = 'Use Standard Rules' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button12Click end end end